home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / cenvi29.arj / DOS.CMD < prev    next >
OS/2 REXX Batch file  |  1994-03-08  |  1KB  |  54 lines
  1. @echo OFF
  2. ::*******************************************
  3. ::*** DOS.CMD - OS/2 utility to run a DOS ***
  4. ::*** ver.1     command in a DOS session  ***
  5. ::*******************************************
  6.  
  7. IF "%1"=="" GOTO INSTRUCTIONS
  8. IF "%1"=="/?" GOTO INSTRUCTIONS
  9. GOTO HAVE_PARMS
  10.  
  11. :INSTRUCTIONS
  12. ECHO  
  13. ECHO DOS.CMD - EXECUTE DOS COMMAND FROM AN OS/2 SESSION
  14. ECHO  
  15. ECHO SYNTAX: DOS [SEE] Command [parameters]
  16. ECHO  
  17. ECHO Where:
  18. ECHO   SEE - Wait for command to finish, and "SEE" DOS output on this screen
  19. ECHO   Command - Any DOS session command
  20. ECHO   parameters - Parameters to pass to the DOS command
  21. ECHO  
  22. ECHO Examples: DOS VER
  23. ECHO           DOS SEE PKZIP BOOK.ZIP *.DOC
  24. ECHO  
  25. GOTO DOSCMD_FINI
  26.  
  27. :HAVE_PARMS
  28. :Determine if the SEE option was provided
  29. CEnvi return( stricmp('SEE','%1') ? 0 : 1 );
  30. IF ERRORLEVEL 1 GOTO SEE_OUTPUT
  31.  
  32. CALL SESSION /DOS /FS /B /WAIT /TITLE "OS/2 Slave" COMMAND.COM "/C %1 %2 %3 %4 %5 %6 %7 %8 %9"
  33. GOTO DOSCMD_FINI
  34.  
  35. :SEE_OUTPUT
  36. SET DOSCMD_DEL_DIR=%DELDIR%
  37. SET DELDIR=
  38. IF EXIST %TEMP%\DOS_TODO.OUT del %TEMP%\DOS_TODO.OUT
  39. SET DELDIR=%DOSCMD_DEL_DIR%
  40. SET DOSCMD_DEL_DIR=
  41.  
  42. CALL SESSION /DOS /FS /B /WAIT /TITLE "OS/2 Slave" COMMAND.COM "/C %2 %3 %4 %5 %6 %7 %8 %9 > %TEMP%\DOS_TODO.OUT"
  43. IF EXIST %TEMP%\DOS_TODO.OUT TYPE %TEMP%\DOS_TODO.OUT
  44.  
  45. SET DOSCMD_DEL_DIR=%DELDIR%
  46. SET DELDIR=
  47. IF EXIST %TEMP%\DOS_TODO.OUT del %TEMP%\DOS_TODO.OUT
  48. SET DELDIR=%DOSCMD_DEL_DIR%
  49. SET DOSCMD_DEL_DIR=
  50.  
  51. GOTO DOSCMD_FINI
  52.  
  53. :DOSCMD_FINI
  54.